      INTEGER FUNCTION DCMDVARS(NVARS,ICOL,IROW)
      PARAMETER (IPARAM_NVARS=16)
      INTEGER IVARIABLES(8,IPARAM_NVARS), IVRSN
      DATA IVARIABLES/
     1  4HOPT ,  4H    ,  4H    ,  4H    ,  0,  -1,  0,  1,
     1  4HNTUB,  4HES  ,  4H    ,  4H    ,  0,  -1,  0,  1,
     1  4HLEN ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HIDT ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HODT ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HIDS ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HODS ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HKM  ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HCM  ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  1,
     1  4HRE1 ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HNU1 ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HRE2 ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HNU2 ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HJM  ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HEFF ,  4H    ,  4H    ,  4H    ,  1,  -1,  0,  2,
     1  4HSPVA,  4HR   ,  4H    ,  4H    ,  1,  -1,  0,  2/

      DATA IVRSN/1313124064/
      NVARS = IPARAM_NVARS
      IF(IROW .EQ. 0) THEN
          DCMDVARS=IVRSN
      ELSE IF(IROW .LE. NVARS) THEN
          DCMDVARS=IVARIABLES(ICOL,IROW)
      ENDIF
      RETURN
      END
